1 POKE53280,PEEK(53281):PRINT"[147]"
2 A$="":INPUT"BINAER-ZAHL ";A$:IFA$=""THENEND
3 IFLEN(A$)<>8THENPRINT"8 ZIFFERN.......":GOTO 2
4 TL=0:C=0
5 FORX=8TO1STEP-1:C=C+1
6 TL=TL+VAL(MID$(A$,C,1))*2^(X-1)
7 NEXT
8 PRINTA$;" BINAER ";" = ";TL;"DEZIMAL"
9 POKE198,0:WAIT198,1:POKE198,0:GOTO2